Top 10k strings from Chinese Patience (1985)(Atlantis Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
9 q$(den,suit)
5 frompi=pfr:
4 ;o$;o$;o$;
3 u(a$(pto,a(pto)))
3 t(a$(pto,a(pto)))
3 spaces=spaces+1
3 mvwholepi:
3 e$(j)=" "
2 z$="s"))+(2
2 spaces=spaces-1
2 s$=r$(q2):
2 points=points+
2 pn=frompi:
2 pile9=pile9+1
2 pile0=pile0+1
2 mvwhto=pto:
2 mvwhfr=pfr:
2 frompi=topi
2 e$(i)=" "
2 a(pn)=a(pn)+1
2 a$(pn,a(pn))=m$:
2 a$(pfr,a(pfr))=n$
2 CHINESE PATIENCE
2 ;"I'm THINKING
2 --Can card be placed on
2 ,pile9)=m$:
2 ,pile0)=n$
2 ,pile0)=m$:
2 ,(points-256
2 )=s$+" "+s$
2 )=" "+s$+" ":
2 (points/256
2 "YOU HAVE WON!"
2 "YOU ARE";
2 "WE DREW!"
2 "POINTS SCORED=";
2 "I HAVE WON!"
2 "GAMES WON=";
1 z$=a$(pn,i,2
1 z$=a$(pn,a(pn),2
1 t$=" ")+((
1 setspcs=220
1 prpi18=500
1 pn=mvwhto:
1 pile9=pile9-1
1 pile0=pile0-1
1 ove option)":
1 o,o;o$;o$;
1 mvwholepi=2700
1 mvwhfr=i+4
1 mvto9=2500
1 mvto18=2300
1 mvto0=2100
1 mvfr9=2400
1 mvfr58=2200
1 mvfr0=2000
1 m$=a$(pn,a(pn)):
1 m$="2c3c4c5c6c7c8c9cTcJcQcKc2d3d4d5d6d7d8d9dTdJdQdKd2h3h4h5h6h7h8h9hThJhQhKh2s3s4s5s6s7s8s9sTsJsQsKs"
1 ink;a$(pn,i);
1 i$="1")+(49
1 i$="0")+(48
1 f$(k)=a$(4
1 f$(k)=" ":
1 f$(i)=" "
1 entionto detail [+ PATIENCE!]...If youwould prefer an intellectually involving card game that will really make you THINK-try ";
1 e$(k)=a$(k,a(k))
1 e$(k)=" ":
1 cdeck=pile9:
1 cdeck=cdeck-1
1 cdeck=bdeck
1 bdeck=pile0:
1 bdeck=bdeck-1
1 alarm=4190
1 a(pn)=a(pn)-1
1 a(mvwhto)=a(mvwhto)+ct:
1 a(mvwhfr)=0
1 a$(pn,a(pn))=" ":
1 a$(pfr,a(pfr))=u$
1 a$(pfr,a(pfr))=l$
1 a$(pfr,a(pfr))=j$
1 a$(mvwhto,a(mvwhto)+ct)=a$(mvwhfr,k):
1 a$(mvwhfr,k)=" "
1 YOUR RECORD
1 YOU ARE THE OVERALL WINNER
1 THE SERIES IS AN OVERALL DRAW!
1 SPECTRUM WINS
1 SHUFFLE CARDS
1 SET UP SCREEN
1 PLAYER WINS
1 MOVE WHOLE PILE
1 MOVE NOT ALLOWED
1 MACHINE SUBROUTINES
1 INVERT Pile 9
1 INVERT Pile 0
1 I AM THE OVERALL WINNER
1 END SERIES/START AGAIN
1 END OF MACHINE SUBR
1 DEAL CARDS
1 Copyright 1984
1 Ccantw=o1:
1 Bcantw=o1:
1 BREAK PRESSED
1 ;o$;o$;o$;o$;o$;o$;o$;o$;o$;
1 ;a$(pn,a(pn));
1 ;'" TURNING YOUR DECK OVER...":
1 ;"and THEN PRESS ";
1 ;"YOUR HAND";
1 ;"YOU HAVE ONLY
1 ;"WHICH PILE-";
1 ;"WHAT IS YOUR
1 ;"Type your name (NO MORE THAN";
1 ;"TO Pile-";
1 ;"TO END of PILE ";
1 ;"THANK YOU FOR PLAYING ";
1 ;"PRESS ";
1 ;"MY HAND";
1 ;"MOVE TOP CARD FROM Pile ";pfr;'"
1 ;"MOVE TOP CARD ";
1 ;"IS YOUR NAME CORRECT
1 ;"I'M AFRAID THAT YOU'LL HAVE TO START AGAIN AT THE BEGINNING":
1 ;"HELLO ";k$;
1 ;"FROM Pile-";
1 ;"EIGHTS-THE CARD GAME OF STRATEGY";
1 ;"DO YOU WANT TO SAY
1 ;"DO YOU WANT TO PLAY AGAIN
1 ;"CHECKING
1 ;"CARDS LEFT ";cdeck+pile9;:
1 ;"CARDS LEFT ";bdeck+pile0;:
1 ;"10 LETTERS, please)
1 ;"....IT'S
1 ;"-Spectrum":
1 ;", which won":
1 ;", ";k$;","
1 ;"***READ INLAY FOR FULL RULES***"
1 ;") IN SERIES";
1 ;" is to play the
1 ;" if you CANNOT MOVE":
1 ;" POINT";("S"
1 ;" GOODBYE ":
1 ;" GAMES."
1 ;" ANY KEY"
1 ;" TO Pile ";
1 ;" DO YOU WISH TO SAY
1 ;" DO YOU WANT TO PLAY AGAIN
1 ;" 'The BEST BOARD/CARD/PUZZLE
1 ;" I'm MOVING
1 .until you can nolonger do anything. Then it is MY TURN - and so on
1 -move WHOLE PILE
1 -TWIST a fresh card":
1 -SINGLE GAMES/END SERIES
1 -QUIT and return to main menu"
1 -Now Cmoved=0
1 -NEXT GAME (";
1 -MOVE the TOP CARD":
1 -FINISH ";
1 --- Can card be placed
1 - will FINISH your turn.
1 ,pile9)=" ":
1 ,pile0)=u$
1 ,pile0)=l$
1 ,pile0)=j$
1 ,pile0)=" ":
1 ,cdeck+pile9:
1 ,cdeck)=" ":
1 ,c;s$;"ab";
1 ,c;s$;"AB";
1 ,c;s$;"01";
1 ,c;"lm";s$;
1 ,c;"LM";s$;
1 ,c;";<";s$;
1 ,bdeck+pile0:
1 ,bdeck)=" ":
1 ,accordingto certain sequence rules."
1 , you may then TWIST again
1 *a(pn);a$(pn,a(pn)):
1 *a(pn);a$(pn,a(pn))
1 *a(mvwhfr)+6
1 *PLAYER'S TURN
1 *PLAYER MENUS
1 *MACHINE'S TURN****
1 *MACHINE MENUS
1 * CONTROL KEYS
1 * CHINESE PATIENCE
1 ). If you can then MOVE this card onto any one of piles
1 $ YOU HAVE PRESSED
1 "your mind with ";
1 "you should really try to stretch":
1 "the 1984 CRASH MICRO AWARD -":
1 "WITH A SCORE OF ";
1 "WE ARE DRAWING on POINTS.":
1 "WE ARE DRAWING on GAMES":
1 "Usually you will move only the TOP card of a pile."
1 "REMEMBER that...."
1 "CLEVER ";:
1 "CHINESEPAT"
1 ".... NEITHER OF US CAN BOAST OF COMPLETE VICTORY ON ALL FRONTS!"
1 "-YOU WON ";g1;" and I WON ";g2
1 "-YOU SCORED ";p1;" and I SCORED ";p2
1 "(and it responds QUICKLY!....)
1 " WINNING on POINTS."
1 " WINNING on GAMES, and"
1 " You can also move cards from piles
1 " The game of CHINESE PATIENCE really demands only a careful examination of the current stateof the piles +finnicky att
1 " Sometimes you may even be ableto place a card on MY pile(
1 " In this game, we EACH commencewith a deck of 22 cards; and thewinner is the first player to dispose of all his cards."
1 " If you ARE bored, then perhaps":
1 " At your turn, you may TWIST a card from your deck onto your pile (Pile
1 " BOTH GAMES and POINTS!"
1 " You'll need PATIENCE to playthis game - it is not as fast asEIGHTS.... The keys that controlthe game are shown below."
1 written by David SIMON":
1 will specify PILE NUMBERS":
1 will move a WHOLE PILE
1 of Pile ";
1 of PILE ";pfr;'"
1 and Ccantw=0
1 WHOLE of PILE ";
1 TWIST NOW!":
1 TOP CARD FROM ";
1 TO the END of Pile ";
1 TO the END of PILE ";
1 TO piles
1 TO START PLAYING AGAIN
1 TO DATE..."
1 TO CLEAR THE MEMORY ";
1 THIS GAME":
1 PILE - ";
1 IN THIS SERIES WE PLAYED A TOTAL of ";
1 I'm MOVING TOP CARD
1 I will then take mine!"
1 HAVE WON THIS GAME ****"
1 HAVE WON THIS GAME
1 GAME OF 1984'
1 FROM Pile ";
1 FOR NOW...."
1 DTTDD DT0
1 DESCEND in order in suits of ALTERNATE COLOURS."
1 CONGRATULATIONS
1 CHINESE PATIENCE"
1 CARD LEFT...":
1 ASCEND in SINGLE SUIT ORDER."
1 1985 ATLANTIS SOFTWARE LTD"
1 ARE YOU BORED, PERHAPS